home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00226.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  721 b   |  22 lines
  1. on ClickDownButton menuObj, params
  2.   set button to BasicButton(menuObj, params)
  3.   set spritenum to getAt(getProp(params, #hotSprites), 1)
  4.   addProp(params, #spritenum, spritenum)
  5.   put "ClickDownButton:" && getaProp(params, #downMember)
  6.   addProp(params, #animCastList, [getaProp(params, #downMember)])
  7.   AddDown(button, NewObject(button, "Member Replacement Class", params))
  8.   return button
  9. end
  10.  
  11. on BasicButton menuObj, params
  12.   set button to NewObject(menuObj, "Generic Hotspot Class", params)
  13.   append(the hotspotList of menuObj, button)
  14.   return button
  15. end
  16.  
  17. on BasicTimer menuObj, params
  18.   set newOne to NewObject(menuObj, "Generic Timer Class", params)
  19.   append(the eventList of menuObj, newOne)
  20.   return newOne
  21. end
  22.